home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 4 / 64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_2_of_2_Side_B.d64 / the sword (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  20KB  |  598 lines
  1. 1 goto10
  2. 2 *************************************
  3. 3 *             the sword             *
  4. 4 *     von a.sommer und s.adomat     *
  5. 5 * klaus-groth-str.12   2210 itzehoe *
  6. 6 *         tel.: 04821/3164          *
  7. 7 *************************************
  8. 10 poke808,234
  9. 14 print"[147] loading..."
  10. 15 sys57812"a",8,1:poke780,0:sys65493
  11. 16 sys57812"b",8,1:poke780,0:sys65493
  12. 20 poke53280,6:poke53281,6:printchr$(147)chr$(8)chr$(14):poke650,0:poke53269,0
  13. 21 sys820
  14. 50 print"[147][150]       [208]ink [193]rts proudly presents:"
  15. 60 print"             >[144] [212]he [211]word <[144]"
  16. 65 print"            @ 1986 [193].[211]ommer"
  17. 67 print"               and [211].[193]domat"
  18. 70 fort=1to1000:next
  19. 75 print"               [212]hanks to"
  20. 80 print"       [194]irthe,[195]laudia,the girls..."
  21. 90 fort=1to1000:next
  22. 95 print"               (waiting)"
  23. 100 av=15:dimve$(av)
  24. 101 ao=32:dimno$(ao),o$(ao),o(ao)
  25. 102 ar=41:dimra$(ar),du(ar,6),kr$(ar)
  26. 103 au=18:dimau$(au)
  27. 104 af=9:dimfl(af)
  28. 105 sp=1:f1=0:f2=15:f3=15:f0=6:zu=0:po=0
  29. 106 a2=28:dimv2$(a2)
  30. 107 az=4:dimza$(az)
  31. 131 datanimm,lege,gehe,betrete,verlasse,toete,rudere,leg
  32. 132 dataverliere,lese,lies,heirate,geh,besteige,untersuche
  33. 141 data"/","norden",0
  34. 142 data"/","sueden",0
  35. 143 data"/","westen",0
  36. 144 data"/","osten",0
  37. 145 data"/","oben",0
  38. 146 data"/","unten",0
  39. 147 data"/","mir",0
  40. 148 data"/","mich",0
  41. 149 data"den heiligen [205]ann","mann",2
  42. 150 data"ein [194]oot","boot",3
  43. 151 data"kein [194]oot","boot",9
  44. 152 data"die liebliche [194]irthe","birthe",10
  45. 153 data"die niedliche [195]laudia","claudia",10
  46. 154 data"die heissbluetige [195]hristiane","christiane",10
  47. 155 data"die reservierte [205]eike","meike",10
  48. 156 data"die nette [211]andra","sandra",10
  49. 157 data"viele grosse und kleine [211]teine","steine",11
  50. 158 data"[194]aeume","baueme",14
  51. 159 data"[194]aeume","baeume",15
  52. 160 data"eine kleine,alte [200]uette","huette",16
  53. 161 data"einen [205]orgenstern","morgenstern",19
  54. 162 data"einen kostbaren [211]child","schild",19
  55. 163 data"ein vergilbtes [194]latt [208]apier","blatt",24
  56. 164 data"einen (den!) [218]werg","zwerg",32
  57. 165 data"den [196]rachen,den ich toeten muss","drachen",33
  58. 166 data"gar nichts,nur lauter uebelrichenden    [206]ebel","nebel",35
  59. 167 data"keine [210]ettung fuer mich","rettung",41
  60. 168 data"/","papier",0
  61. 169 data"/","frau",0
  62. 170 data"/","alles",0
  63. 171 data"das [218]auberschwert","zauberschwert",33
  64. 172 data"eine [204]ampe","lampe",-1
  65. 201 data"vor dem heiligen [212]urm.","[214]orm heiligen [212]urm",2,0,0,0,0,0
  66. 202 data"im heiligen [212]urm.[203]alt hier...","[201]m [212]urm",9,1,5,6,10,3
  67. 203 data"im [203]eller.[200]ier fliesst ein      [198]luss.","[203]eller",0,0,0,0,2,0
  68. 204 data"im [194]oot.","[201]m [194]oot",0,0,0,0,0,0
  69. 205 data"im [205]oor.","[205]oor",8,0,0,2,0,0
  70. 206 data"am [205]eer.","[193]m [205]eer",0,0,2,0,0,0
  71. 207 data"im [194]oot.","[201]m [194]oot",0,0,0,0,0,0
  72. 208 data"im [205]oor.","[205]oor",0,0,0,0,0,0
  73. 209 data"am [198]luss.","[193]m [198]luss",11,2,0,0,0,0
  74. 210 data"im [200]arem des heiligen [205]annes.","[201]m [200]arem",0,0,0,0,0,2
  75. 211 data"im [199]ebirge.","[199]ebirge",11,11,11,11,12,9
  76. 212 data"auf dem [199]ipfel der [199]enuesse.","[199]ipfel",0,0,0,0,0,0
  77. 213 data"auf einer [211]andbank.([205]ist!)","[211]andbank",0,0,0,0,0,0
  78. 214 data"im [215]ald.","[215]ald",15,0,14,14,0,0
  79. 215 data"im [215]ald.","[215]ald",16,14,15,14,0,0
  80. 216 data"im [215]ald vor einer [200]uette.","[214]or einer [200]uette",15,15,15,14,0,0
  81. 217 data"in der kleinen [200]uette.","[200]uette",0,0,0,0,0,0
  82. 218 data"am [211]ee [203]altor.","[203]altor",21,0,41,19,0,0
  83. 219 data"auf einer [197]bene.","[197]bene",0,0,18,0,0,0
  84. 220 data"auf einer weiten [197]bene.","[197]bene",0,0,0,21,0,0
  85. 221 data"an einem [198]luss.","[198]luss",22,18,20,0,0,0
  86. 222 data"am [198]luss.","[198]luss",23,21,20,0,0,0
  87. 223 data"am [198]luss.","[198]luss",24,22,20,0,0,0
  88. 224 data"am [210]and des [199]ebirges.","[199]ebirgsrand",26,23,23,23,0,0
  89. 225 data"im [199]ebirge.","[199]ebirge",28,0,39,26,0,0
  90. 226 data"im [199]ebirge.","[199]ebirge",29,24,25,27,0,0
  91. 227 data"in einem [212]al.","[212]al",30,0,26,0,0,0
  92. 228 data"im [199]ebirge.","[199]ebirge",0,25,39,29,0,0
  93. 229 data"in einem [212]al.","[212]al",31,26,28,30,0,0
  94. 230 data"im [199]ebirge.","[199]ebirge",0,27,30,0,0,0
  95. 231 data"in einem [212]al.","[212]al",0,29,0,0,0,32
  96. 232 data"in einer duesteren [200]oehle.","[200]oehle",0,0,0,0,31,0
  97. 233 data"tief in der [200]oehle des [204]oewen...aehh [196]rachen,natuerlich!"
  98. 234 data"[200]oehle",0,0,0,0,34,0
  99. 235 data"in der [200]oehle des [196]rachen.","[200]oehle",0,0,0,35,0,33
  100. 236 data"am [198]usse des [214]etus.","[214]etus",0,40,34,36,0,0
  101. 237 data"auf einer [197]bene.[198]ern im [215]esten  raucht der [214]etus.","[197]bene"
  102. 238 data0,0,35,37,0,0
  103. 239 data"auf einer [197]bene.","[197]bene",39,38,36,38,0,0
  104. 240 data"auf einer [197]bene.","[197]bene",39,37,37,39,0,0
  105. 241 data"auf einer [197]bene.","[197]bene",38,25,38,28,0,0
  106. 242 data"auf einer [197]bene.","[197]bene",35,40,40,40,0,0
  107. 243 data"unter [215]asser...","[213]nter [215]asser",0,0,0,0,0,0
  108. 300 datader,die,das,den, ,ueber,unter,auf,in,mit,dem,durch,und,nach
  109. 301 databitte,doch,heiligen,zur
  110. 501 data0,0,0,0,0,0,0,0,0
  111. 601 datainventory,hilfe,ende,sieh,look,danke,save,load,store,restore,farbe
  112. 602 datanorden,sueden,westen,osten,oben,unten,score,spielstand,sage,schlafe
  113. 603 dataspeichere,lade,anleitung,spielanleitung,normal,neu,warte
  114. 650 rem zaubersprueche
  115. 651 dataemmiwhcs,kceuruz,"ehcard eteot","thcil"
  116. 700 data133,95,134,96,76,191,163
  117. 800 fort=1toav:readve$(t):next
  118. 801 fort=1toao:readno$(t),o$(t),o(t)
  119. 802 next
  120. 803 fort=1toar:readra$(t),kr$(t)
  121. 804 forx=1to6:readdu(t,x):nextx,t
  122. 805 fort=1toau:readau$(t):next
  123. 806 fort=1toaf:readfl(t):next
  124. 807 fort=1toa2:readv2$(t):next
  125. 808 fort=1toaz:readza$(t):za$(t)=chr$(34)+za$(t)+chr$(34):next
  126. 810 fort=704to710:reada:poket,a:next
  127. 820 poke88,0:poke89,192:poke90,0:poke91,192:poke780,0:poke781,160:sys704
  128. 825 poke88,0:poke89,0:poke90,0:poke91,0:poke780,0:poke781,224:sys704
  129. 830 poke1,53
  130. 900 print"[145]       [206]ormaler [218]eichensatz?  [164][157]";
  131. 920 geta$:ifa$<>"n"anda$<>"j"then920
  132. 930 printa$
  133. 931 fort=1to500:next
  134. 940 ifa$="j"thengosub56000:printchr$(14):f0=0:f1=5:f2=3:f3=5
  135. 945 poke53280,f0:poke53281,f0
  136. 1000 poke59639,0
  137. 1005 print"[147]"
  138. 1006 data"[206]orden","[211]ueden","[215]esten","[207]sten","[207]ben","[213]nten"
  139. 1010 fort=1to6:readri$(t):next
  140. 1020 printchr$(147)
  141. 1080 gosub53000:print:poke646,f1:ifsp=2thenfl(2)=-1
  142. 1090 print"[201]ch bin ";ra$(sp)
  143. 1100 print"[201] can see:"
  144. 1110 fl(1)=-1:fort=1toao
  145. 1120 ifo(t)=spthenprintno$(t)".":fl(1)=0
  146. 1130 next
  147. 1140 iffl(1)thenprint"nichts."
  148. 1150 print"[200]ier geht's nach:"
  149. 1160 g=0:fort=1to6
  150. 1170 ifdu(sp,t)<>0thenprintri$(t)",";:g=g+1
  151. 1180 next
  152. 1190 ifg<1thenprint"nirgendwohin ";
  153. 1200 print"[157]."
  154. 1230 iffl(2)ando(9)=2theno(9)=0:gosub57000:goto1080
  155. 1300 ifsp=8thenprint"[200]ilfe,ich versinke im [205]oor...":goto54000
  156. 1310 ifsp=13thenprint"[212]ja,das [193]benteuer ist leider zuende."
  157. 1320 ifsp=13thenprint"[201]ch verhungere langsam,und denke"
  158. 1330 ifsp=13thenprint"an die [218]eit,die ich mit [194]irthe haette"
  159. 1340 ifsp=13thenprint"verbringen koennen.":print:goto54000
  160. 1370 :
  161. 1500 zu=zu+1:iffl(5)andnotfl(8)thenpo=po+1:fl(8)=-1
  162. 1501 ifsp<>41thenfl(7)=0
  163. 1502 ifsp=41thenfl(7)=fl(7)+1
  164. 1503 iffl(7)>2thenprint"[201]ch ertrinke...[194]lubb...":print:goto54000
  165. 1505 gosub50000:poke646,f2
  166. 1510 iflen(x$)>2then1600
  167. 1520 ifx$="n"anddu(sp,1)<>0thensp=du(sp,1):print"[194]itte.":goto1080
  168. 1521 ifx$="s"anddu(sp,2)<>0thensp=du(sp,2):print"[206]a [199]ut.":goto1080
  169. 1523 ifx$="w"anddu(sp,3)<>0thensp=du(sp,3):print"[199]ooood.":goto1080
  170. 1524 ifx$="o"anddu(sp,4)<>0thensp=du(sp,4):print"[206]a [203]lar.":goto1080
  171. 1525 ifx$="ob"anddu(sp,5)<>0thensp=du(sp,5):print"[193]ber [194]itte.":goto1080
  172. 1526 ifx$="u"anddu(sp,6)<>0thensp=du(sp,6):print"[194]itteschoen.":goto1080
  173. 1527 ifx$="i"then31000
  174. 1599 print"[215]rong [201]nput!":goto1500
  175. 1600 er=0:gosub51000
  176. 1610 ifer=1then1500
  177. 1615 er=0:gosub52000
  178. 1616 ifer=1then1500
  179. 1620 ifv2<>0then30000
  180. 1630 ifo1=28theno1=23
  181. 1640 ifo1=18andsp=15theno1=19
  182. 1650 ifo1=10andsp=9theno1=11
  183. 1700 onvgoto2500,2000,3000,3500,4000,4500,5000,2000,6500,7000,7000,7500
  184. 1710 onv-12goto3000,6000,8000
  185. 1800 goto1500
  186. 2000 ifo2<>0thenprint"[201]mmer der [210]eihe nach!":goto1500
  187. 2005 ifo1=30then2100
  188. 2010 ifnoto(o1)thenprint"[200]abe ich nicht dabei!":goto1500
  189. 2020 o(o1)=sp:print"[199]elegt!":goto1500
  190. 2100 gl=0:fort=1toao
  191. 2110 ifo(t)=-1theno(t)=sp:printo$(t)":gelegt":gl=1
  192. 2120 next
  193. 2130 ifgl=1then1500
  194. 2140 print"[200]atte leider nothing dabei!":goto1500
  195. 2500 ifo1=30then2800
  196. 2501 ifo2=29theno2=0:goto7500
  197. 2502 ifo1=8thenprint"[196]u hasst dich doch schon!":goto1500
  198. 2503 ifo1=7thenprint"[204]ern erstmal [196]eutsch!":goto1500
  199. 2504 ifo(o1)=-1thenprint"[200]ab ich doch schon!":goto1500
  200. 2505 ifo(o1)<>spthenprint"[211]ehe ich hier nicht!":goto1500
  201. 2506 ifo1=11thenprint"[196]a oben steht [203][197][201][206] [194]oot!":goto1500
  202. 2507 ifo1<12thenprint"[196]as geht nun wirklich nicht!":goto1500
  203. 2508 ifo1<17thenprint"[196]u denkst auch nur an das eine!":goto1500
  204. 2509 ifo1=17thenprint"[211]o viele...kann mich nicht entscheiden!":goto1500
  205. 2510 ifo1=18oro1=19thenprint"[194]in doch kein [210]iese,nur ein kleiner [195]64!";:goto1500
  206. 2511 ifo1=20thenprint"[196]as solltest du dir nochmal ueberlegen!":goto1500
  207. 2512 ifo1>23ando1<31thenprint"[206]ein,das uebersteigt meine [203]ompetenzen!":goto1500
  208. 2530 ifo1=31andnotfl(6)thenprint"[196]er [196]rache [214]erfeuert dich im [214]ulkan!":goto54000
  209. 2600 o(o1)=-1:print"[193]llright,getaket!"
  210. 2610 ifo(31)thenfl(5)=-1
  211. 2630 goto1500
  212. 2800 gn=0:fort=1toao
  213. 2810 ifo(t)=spthengosub2850
  214. 2820 next
  215. 2830 ifgn=0thenprint"[206]ichts da!"
  216. 2840 goto1500
  217. 2850 ift<>21andt<>22andt<>23andt<>32then2900
  218. 2860 printo$(t)":genommen":o(t)=-1:gn=1:return
  219. 2900 ift=31andfl(6)=-1thenfl(5)=-1:goto2860
  220. 2905 ift=31andnotfl(6)theno1=31:goto2530
  221. 2910 return
  222. 3000 ifo2<>0thenprint"[197]ins auf einmal!":goto1500
  223. 3010 ifo1=1thenx$="n":goto1520
  224. 3020 ifo1=2thenx$="s":goto1521
  225. 3030 ifo1=3thenx$="w":goto1523
  226. 3040 ifo1=4thenx$="o":goto1524
  227. 3050 ifo1=5thenx$="ob":goto1525
  228. 3060 ifo1=6thenx$="u":goto1526
  229. 3070 print"[206]it moeglich...":goto1500
  230. 3500 ifo2<>0thenprint"[206]o,man!":goto1500
  231. 3510 ifo1=10then6000
  232. 3520 ifo(o1)<>spthenprint"[211]eh ick nich!":goto1500
  233. 3530 ifo1<>20thenprint"[211]owas kann ich nicht betreten!":goto1500
  234. 3540 print"[194]in drin!":sp=17:po=po+1:goto1080
  235. 4000 ifo2<>0thenprint"[211][207] [206][201][195][200][212]!":goto1500
  236. 4010 ifo1<>10ando1<>20thenprint"[196]as geht nicht!":goto1500
  237. 4020 ifo1=20andsp=17thenprint"[211]ie laesst mich nicht raus!":goto1500
  238. 4030 ifsp<>4andsp<>7ando1<>10thenprint"[214]ersteh' dich nicht!":goto1500
  239. 4040 ifsp=4thenprint"[200]ilfe,ich ertrinke...":goto54000
  240. 4050 sp=14:print"[199]ute [215]ahl!":goto1080
  241. 4100 print"[204]eider unmoeglich!":goto1500
  242. 4500 ifo1=8thenprint"[211]elbstmord ist unter [211]trafe verboten!":goto1500
  243. 4501 ifo1=7thenprint"[204]ern erstmal richtig [196]eutsch!":goto1500
  244. 4505 ifo(o1)<>sporo2<>0ando2<>21thenprint"[214]erstehe ich nicht.":goto1500
  245. 4510 ifo1=9oro1=24oro1=25oro1>11ando1<17then4600
  246. 4530 print"[197]in [196][201]ng kann man [206][201][195][200][212] toeten!":goto1500
  247. 4600 ifo2=21thenprint"[196]ami gehts nicht!":goto1500
  248. 4609 print"[215]omit denn?"
  249. 4610 print"[213]nd ueberhaupt:[205]orden ist gar nicht "
  250. 4620 print"fein!":goto1500
  251. 5000 ifo1>4oro2<>0thenprint"[211]o ein [194]loedsinn!":goto1500
  252. 5010 ifsp<>7andsp<>4thenprint"[207]hne [194]oot und ohne [215]asser???":goto1500
  253. 5020 ifsp=7ando1=2thensp=4:print"[193]llright!":goto1080
  254. 5030 ifsp=4ando1=1thensp=7:print"[194]itteschoen!":goto1080
  255. 5040 ifo1=3thensp=13:print"[211]elbst schuld!":goto1080
  256. 5050 print"[196]ahin kann ich nicht rudern!":goto1500
  257. 6000 ifsp<>3thenprint"[196]as geht nicht!":goto1500
  258. 6010 ifo1<>10thenprint"[215]ie bitte?":goto1500
  259. 6020 sp=4:print"[207].[203].":po=po+1:goto1080
  260. 6100 print"[204]eider unmoeglich!":goto1500
  261. 6500 ifo1=0thenprint"[215]as denn?":goto1500
  262. 6510 ifnoto(o1)thenprint"[200]ab isch nisch!":goto1500
  263. 6520 print"[201]ch bin doch nicht so bloed und ver-"
  264. 6530 print"lier was!"
  265. 6540 print"[211]chon aus [208]rinzip nicht!":goto1500
  266. 7000 ifo2<>28ando2<>0thenprint"[215]hat,to the [196]onnerwetter?":goto1500
  267. 7005 ifnoto(o1)thenprint"[200]ab ich nicht!":goto1500
  268. 7010 ifo1<>23thenprint"[214]oellig unleserlich!":goto1500
  269. 7020 print"[207]hh nein,ein [215]erbe-[218]ettel..."
  270. 7030 print"[211]oll ich ihn wirklich lesen?":gosub50000:poke646,f2
  271. 7040 ifleft$(x$,1)="n"thenprint"[199]ut so!":goto1500
  272. 7041 ifleft$(x$,1)<>"j"then7030
  273. 7050 print"[196]ort steht:"
  274. 7080 printchr$(34);:poke646,f1
  275. 7090 print"[208]ink [211]chwertputzer fuer ihr [211]chwert,"
  276. 7100 print" jetzt im [211]onderangebot by [193]rthurs "
  277. 7110 print" [210]itter- und [203]nappenshop!"
  278. 7111 print" [206]ur 19,50.-";
  279. 7119 poke646,f2
  280. 7120 printchr$(34):goto1500
  281. 7500 ifo1=9thenprint"[215]as bist du denn fuer einer?":goto1500
  282. 7510 ifo(o1)<>spthenprint"[211]ehe ich hier nicht!":goto1500
  283. 7520 ifo1<12oro1>16thenprint"[211]o ein schwachsinn!":goto1500
  284. 7530 ifo1=15then7700
  285. 7535 ifo1=14then7900
  286. 7540 iffl(5)=0then7800
  287. 7550 print"[199]ut,"no$(o1)" ist nun meine":print"[198]rau,";:po=po+1
  288. 7555 print"und ihr liebt euch und werdet"
  289. 7556 print"gluecklich sein bis an euer [204]ebensende!"
  290. 7557 print"[207]der?":print
  291. 7560 poke646,f1
  292. 7570 print"[194]ravo,du hasst mich geschlagen,das"
  293. 7580 print"[193]dventure ist geloest!"
  294. 7585 print"[196]u erhaelst"po"von 9 [208]unkten!"
  295. 7590 print"[193]ber freu dich nicht zu frueh,"
  296. 7595 print"[212]eil 2 ist schon in [193]rbeit!":print:goto54000
  297. 7700 print"[206]ils,der andere [218]auberlehrling und"
  298. 7710 print"[205]eikes [198]reund,komm herein und er-"
  299. 7720 print"schlaegt mich aus [197]ifersucht!":print:goto54000
  300. 7800 print"[210]eizvoller [199]edanke...[193]ber das [193]benteuer"
  301. 7810 print"ruft.[193]lso bestehe es und schaff dir"
  302. 7820 print"kein neues!":goto1500
  303. 7900 print"[211]ie reisst mir die [203]leider vom [204]eibe."
  304. 7910 print"[201]ch sterbe an meiner [197]rregung!":print:goto54000
  305. 8000 ifo2<>0thenprint"[206]icht alles auf einmal!":goto1500
  306. 8001 ifo(o1)<>spandnoto(o1)thenprint"[211]eh ich nicht,hab ich nicht!":goto1500
  307. 8002 ono1goto8010,8010,8010,8010,8010,8010,8020,8015,8300,8300,8050,8060,8070
  308. 8003 ono1-13goto8080,8090,8100,8110,8300,8300,8300,8300,8120,8130,8140
  309. 8004 ono1-24goto8150,8160,8300,8300,8140,8300,8180,8170
  310. 8010 print"[213]ntersuch ihn doch selbst!":goto1500
  311. 8015 print"[203]annst du nicht auf [196]eutsch reden!":goto1500
  312. 8020 print"[201]ch bin ein schoener,muskuloeser"
  313. 8021 print"[202]uengling.[205]ein [206]ame ist [206]evs [197]nra.":goto1500
  314. 8050 print"[201]st nicht zu sehen!":goto1500
  315. 8060 print"[215]ie ich schon sagte:[204]ieblich!":goto1500
  316. 8070 print"[211]ie ist wirklich sehr,sehr niedlich!":goto1500
  317. 8080 print"[205]an,hat die ein [212]emperament!":goto1500
  318. 8090 print"[211]ie bleibt cool,und so sieht sie auch":print"aus!":goto1500
  319. 8100 print"[197]in nettes [205]aedel":goto1500
  320. 8110 print"[196]ie [200]uette ist klein und scheint"
  321. 8111 print"gemuetlich zu sein.":goto1500
  322. 8120 print"[197]s ist vergoldet und mit [197]delsteinen":print"besetzt.":goto1500
  323. 8130 print"[201]ch solte es lesen!":goto1500
  324. 8140 print"[197]s ist ein eher freundlicher [218]werg!":goto1500
  325. 8150 print"[196]as ist er...":goto1500
  326. 8160 print"[196]u inhalierst zuviel [206]ebel...[197]s ist":print"[199]iftgas...[196]u [211]tirbst!":print
  327. 8161 goto54000
  328. 8170 print"[211]ie koennte noch nuetzlich sein!":goto1500
  329. 8180 print"[218]auberhaft!":goto1500
  330. 8300 print"[211]ieht ganz normal aus!":goto1500
  331. 30000 onv2goto31000,31500,32000,32500,32500,33000,33500,34000,33500,34000,34500
  332. 30050 onv2-11goto35000,35010,35020,35030,35040,35050,35500,35500,36000,37000
  333. 30060 onv2-21goto33500,34000,38000,38000,39500,39700,40000
  334. 30100 goto1500
  335. 31000 print"[201]ch trage:"
  336. 31005 fl(3)=-1:fort=7toao
  337. 31010 ifo(t)=-1thenfl(3)=0:printno$(t)"."
  338. 31020 next
  339. 31030 iffl(3)thenprint"gar nichts!"
  340. 31040 goto1500
  341. 31500 ifsp=10thenprint"[196]ie [205]aedels sehn zum anbeissen aus!":goto1500
  342. 31510 ifsp=17thenprint"[201]ch bin muede!":goto1500
  343. 31520 ifsp=5thenprint"[199]eh hier nicht weiter!":goto1500
  344. 31530 ifsp=14orsp=15thenprint"[205]an sieht den [215]ald vor [194]aeumen nicht!":goto1500
  345. 31540 ifsp=3thenprint"[201]ch wollt ich waer ein [211]eebaer,aeh      -mann...":goto1500
  346. 31550 ifsp=31thenprint"[218]werge lieben [204]icht!":goto1500
  347. 31555 ifsp=7thenprint"[201]ch sollte das [194]oot besser verlassen!":goto1500
  348. 31560 ifsp=12thenprint"[199]ib auf,hier kommst du nicht mehr weg!":goto1500
  349. 31900 print"[200]ilf dir selbst,":zu=zu-1
  350. 31910 print"dann hilft dir [199]ott!"
  351. 31920 goto1500
  352. 32000 print"[215]illst du wirklich aufhoeren?"
  353. 32010 gosub50000:poke646,f2
  354. 32020 ifleft$(x$,1)="j"thenprint"[206]a gut!":goto54000
  355. 32030 print"[215]arum tippst du dann '[197]nde'?":goto1500
  356. 32500 goto1080
  357. 33000 zu=zu-1:print"[206]icht zu danken!":goto1500
  358. 33500 gosub56500:print"[208]lease wait!":zu=zu-1
  359. 33510 open15,8,15,"s:"+n$
  360. 33520 close15
  361. 33530 open2,8,2,n$+",s,w"
  362. 33540 print#2,sp:print#2,zu:print#2,ra$(32):print#2,no$(25):print#2,po
  363. 33550 fort=1toao:print#2,o(t):next
  364. 33560 fort=1toaf:print#2,fl(t):next
  365. 33600 close2:print"[198]ertig."
  366. 33700 goto1500
  367. 34000 gosub56500:print"[208]lease wait"
  368. 34030 open2,8,2,n$+",s,r"
  369. 34040 input#2,sp:input#2,zu:input#2,ra$(32):input#2,no$(25):input#2,po
  370. 34050 fort=1toao:input#2,o(t):next
  371. 34060 fort=1toaf:input#2,fl(t):next
  372. 34100 close2:print"[198]ertig."
  373. 34200 goto1080
  374. 34500 print"[194]ildschirmfarbe        ([198]1+[210]eturn)  < >":poke650,128
  375. 34510 geta$:ifa$="[133]"thenf0=f0+1:iff0=15thenf0=0
  376. 34520 ifa$=chr$(13)then34540
  377. 34530 poke53280,f0:poke53281,f0:goto34510
  378. 34540 print"[211]chriftfarbe [197]ingabe   ([198]1+[210]eturn)  > [146]<[157][157]";
  379. 34545 geta$
  380. 34550 ifa$="[133]"thenf1=f1+1:iff1=15thenf1=0
  381. 34560 ifa$=chr$(13)then34580
  382. 34570 poke646,f1:print" [146][157]";:goto34545
  383. 34580 poke646,f2:print:print"[211]chriftfarbe ausgabe   ([198]1+[210]eturn)  > [146]<[157][157]";
  384. 34585 geta$
  385. 34590 ifa$="[133]"thenf2=f2+1:iff2=15thenf2=0
  386. 34595 ifa$=chr$(13)then34600
  387. 34598 poke646,f2:print" [146][157]";:goto34585
  388. 34600 print:print"[211]chriftfarbe [203]opfzeile ([198]1+[210]eturn)  > [146]<[157][157]";
  389. 34610 geta$
  390. 34620 ifa$="[133]"thenf3=f3+1:iff3=15thenf3=0
  391. 34630 ifa$=chr$(13)then34650
  392. 34640 poke646,f3:print" [146][157]";:goto34610
  393. 34650 poke650,0:print:goto1080
  394. 35000 x$="n":goto1520
  395. 35010 x$="s":goto1520
  396. 35020 x$="w":goto1520
  397. 35030 x$="o":goto1520
  398. 35040 x$="ob":goto1520
  399. 35050 x$="u":goto1520
  400. 35500 print"[196]u hasst";:zu=zu-1
  401. 35510 ifzu=1thenprint" einen [194]efehl gegeben!":goto35525
  402. 35511 ifzu=0thenprint" noch keinen [194]efehl gegeben!":goto1500
  403. 35520 printzu"[194]efehle gegeben!"
  404. 35525 ifpo=1thenprint"[196]u hasst einen [208]unkt.":goto35560
  405. 35527 print"[196]u hasst"po"[208]unkte."
  406. 35560 print"[193]ber das [211]piel hasst du noch nicht "
  407. 35570 print"gewonnen!":goto1500
  408. 36000 x$=right$(x$,len(x$)-5)
  409. 36010 ifleft$(x$,1)<>chr$(34)thenprint"[193]nfuehrungszeichen vergessen!":goto1500
  410. 36011 ifright$(x$,1)<>chr$(34)thenprint"[215]rong [201]nput!":goto1500
  411. 36020 forza=1toaz
  412. 36030 ifza$(za)=x$then36310
  413. 36040 next
  414. 36300 printx$",nichts passiert!":goto1500
  415. 36310 onzagoto36500,36600,36700,36800
  416. 36500 ifsp<>41thenprint"[200]ier gibt's nichts zum schwimmen!":goto1500
  417. 36505 iffl(9)thensp=18:fl(7)=0:print"[208]uh,bin doch gerettet!":goto1080
  418. 36510 sp=18:fl(7)=0:fl(9)=-1:print"[208]uh,bin doch gerettet!":po=po+1:goto1080
  419. 36600 ifsp<>33thenprint"[196]as geht leider nicht!":goto1500
  420. 36610 iffl(5)=0thenprint"[201]ch habe das [211]chwert noch nicht!":goto1500
  421. 36620 sp=2:print"[218]wooochh...[215]au,echt geil so'n [218]auber!":po=po+1:goto1080
  422. 36700 ifsp<>33thenprint"[201]ch seh den [196]rachen ja gar nicht!":goto1500
  423. 36710 iffl(6)thenprint"[196]er [196]rache ist schon tot!":goto1500
  424. 36720 print:print:print:print"[208]eng,[218]ack,[194]uff..."
  425. 36730 print"[194]litze zucken,[198]lammen lodern,der [196]rache"
  426. 36731 print"ist tot,endlich besiegt!"
  427. 36732 no$(25)="den toten [196]rachen":fl(6)=-1
  428. 36740 print"[196]er heilige [205]ann erscheint.[197]r sagt:"
  429. 36750 printchr$(34);:poke646,f1
  430. 36760 print"[196]u hasst meine [197]rwartungen voll"
  431. 36761 print" erfuellt.[201]ch lege nun mein [193]mt nieder"
  432. 36762 print" und gebe alles an dich,mein [211]chueler."
  433. 36763 print" [204]eb wohl...";:poke646,f2:printchr$(34)
  434. 36770 print"[201]ch rufe ihm noch nach,doch er ist"
  435. 36771 print"schon weg.[206]un bin ich der [218]auberer und"
  436. 36772 print"heilige [205]ann."
  437. 36773 print"[193]n der [215]and erscheint eine [211]chrift,die"
  438. 36774 print"besagt,dass das [193]dventure noch nicht":print"geschlagen ist!"
  439. 36776 po=po+1
  440. 36777 print"([205]ore)[145][145]"
  441. 36780 geta$:ifa$=""then36780
  442. 36785 fl(6)=-1:goto1080
  443. 36800 ifnoto(32)thenprint"[200]ab' keine [204]ampe!":goto1500
  444. 36810 ifsp<>32thenprint"[194]in doch nicht blind!":goto1500
  445. 36820 fl(4)=-1:print
  446. 36830 print"[196]er [218]werg freut sich ueber das [204]icht."
  447. 36840 print"[201]ch schenke ihm die [204]ampe."
  448. 36845 print"[197]r versteckt sie schnell in seiner"
  449. 36850 print"[200]oehle.":o(32)=0
  450. 36860 print"[197]r beginnt zu erzaehlen:"
  451. 36861 printchr$(34);:poke646,f1
  452. 36862 print"[196]er [196]rache ist mit [205]agie einfach zu"
  453. 36863 print" besiegen...benutze dein [215]issen!";
  454. 36864 poke646,f2:printchr$(34)
  455. 36865 print"[205]ehr will er nicht sagen!"
  456. 36866 print"[197]r verschwindet...":o(24)=0
  457. 36870 ra$(32)="in einer hellerleuchteten       [200]oehle.":po=po+1:goto1080
  458. 37000 ifsp<>17thenprint"[194]in nicht muede!":goto1500
  459. 37010 print"[204]angsam sinke ich in den [211]chlaf...":sp=18
  460. 37020 fort=1to2000:next
  461. 37030 print"[201]ch erwache,und sehe...[215][193][211]?"
  462. 37040 print"[201]ch bin ja ganz wo anders..."
  463. 37045 po=po+1:goto1080
  464. 38000 print"[197]ine komplette [193]nleitung kann ich"
  465. 38010 print"dir so auf die schnelle nicht geben,"
  466. 38020 print"aber ein paar [212]ricks:"
  467. 38030 print"[211]ave immer alles ab,bevor du etwas ge-"
  468. 38040 print"faehrliches ausprobierst."
  469. 38050 print"[213]ntersuche alles genau und lese alles"
  470. 38060 print"sorgfaelltig."
  471. 38070 print"'score' bzw. 'spielstand' sagt dir,wie-"
  472. 38080 print"viele [194]efehle du schon gegeben hasst,"
  473. 38090 print"und deine [208]unktzahl."
  474. 38095 print"[218]aubersprueche werden angewendet,indem"
  475. 38100 print"man 'sage "chr$(34)"zauberspruch"chr$(34)"' tippt."
  476. 38110 print"[197]in [218]auberspruch ist ein [194]efehl,der"
  477. 38120 print"rueckwaerts eingegeben werden muss!":
  478. 38999 goto1500
  479. 39500 sys867:printchr$(14)
  480. 39510 f0=0:f1=5:f2=3:f3=5
  481. 39530 goto39800
  482. 39700 printchr$(142):sys820
  483. 39710 f0=6:f1=0:f2=15:f3=15
  484. 39800 :
  485. 39810 poke53280,f0:poke53281,f0
  486. 39830 goto1080
  487. 40000 print"[196]ie [218]eit vergeht...":goto1500
  488. 50000 x$="":a$="":poke646,f1:print:print"[164][157]";
  489. 50030 geta$:ifa$=""then50030
  490. 50031 poke212,0
  491. 50033 ifa$=chr$(13)then50300
  492. 50034 ifa$=""thengosub50500:goto50030
  493. 50035 ifa$=chr$(32)then50080
  494. 50036 ifa$=chr$(34)thenpoke212,1:goto50080
  495. 50037 ifa$=chr$(20)thengosub50400:goto50030
  496. 50038 iflen(x$)>78then50030
  497. 50050 ifa$<"a"ora$>"z"then50030
  498. 50080 printa$;"[164][157]";:x$=x$+a$:goto50030
  499. 50300 iflen(x$)<1thengoto50030
  500. 50301 print" ":return
  501. 50400 l=len(x$):ifl<1thenreturn
  502. 50415 x$=left$(x$,l-1):print" [157][157][164][157]";
  503. 50430 return
  504. 50500 iflen(x$)<1thenreturn
  505. 50501 print" [157]";:fors=1tolen(x$)
  506. 50510 print" [157][157]";:next
  507. 50520 print"[164][157]";:x$="":return
  508. 51000 fori=1to10:be$(i)="":next
  509. 51020 wz=1
  510. 51030 fori=1tolen(x$)
  511. 51040 ifmid$(x$,i,1)=" "thengosub51100:goto51060
  512. 51045 ifwz>10thenprint"[197]ingabe ist zu lang!":er=1:return
  513. 51050 be$(wz)=be$(wz)+mid$(x$,i,1)
  514. 51060 next:gosub51100:wz=wz-1
  515. 51070 return
  516. 51100 rem aussortieren
  517. 51110 ic=0:fori1=1toau
  518. 51120 ifbe$(wz)=au$(i1)thenic=1
  519. 51130 next
  520. 51140 ific=0thenwz=wz+1:return
  521. 51150 be$(wz)="":return
  522. 52000 ifbe$(1)="sage"thenv2=20:return
  523. 52001 o2=0:v2=0:ifwz>1then52008
  524. 52002 fort=1toa2:ifv2$(t)=be$(1)thenv2=t:return
  525. 52003 next
  526. 52008 ifwz>3thenprint"[215]as soll das bedeuten?":goto1500
  527. 52009 fort=1toav
  528. 52010 ifve$(t)=be$(1)thenv=t:goto52100
  529. 52020 next
  530. 52030 print"'"be$(1)"' kenne ich nicht!":er=1:return
  531. 52100 fort=1toao
  532. 52110 ifo$(t)=be$(2)theno1=t:goto52150
  533. 52120 next
  534. 52130 print"[203]ein [206]omen gefunden!":er=1:return
  535. 52150 ifwz=2thenreturn
  536. 52200 fort=1toao
  537. 52210 ifo$(t)=be$(3)theno2=t:goto52300
  538. 52220 next
  539. 52230 print"'"be$(3)"' kenne ich nicht!":er=1
  540. 52300 return
  541. 53000 x=peek(211):y=peek(214):poke646,f3
  542. 53010 print"                               [212]he [211]word[146]"
  543. 53020 print"";kr$(sp);"[146]"
  544. 53030 poke211,x:poke214,y:sys58732
  545. 53050 return
  546. 54000 poke646,f2:print"[206]ochmal?"
  547. 54010 gosub50000:ifleft$(x$,1)="j"thenpoke53280,6:poke53281,6:run20
  548. 54020 goto60000
  549. 56000 sys867:return
  550. 56500 print"[198]ile-[206]ummer (1-3) [164][157]";
  551. 56510 gete$:ife$<>"1"ande$<>"2"ande$<>"3"then56510
  552. 56511 ife$="1"thenn$="c"
  553. 56512 ife$="2"thenn$="d"
  554. 56513 ife$="3"thenn$="e"
  555. 56520 printe$"_":return
  556. 57000 poke646,f2:print
  557. 57010 print"[196]er heilige [205]ann erblickt seinen"
  558. 57020 print"[211]chueler (mich) und sagt:"
  559. 57030 printchr$(34);:poke646,f1
  560. 57040 print"[201]ch bin [211]tolz,mein [211]chueler!"
  561. 57050 print" [196]u wolltest [218]auberer werden,und jetzt"
  562. 57060 print" stehst du vor der abschliessenden"
  563. 57070 print" [208]ruefung.[212]oete den [196]rachen,der in dem"
  564. 57080 print" [214]ulkan '[214]etus' lebt und nimm das"
  565. 57085 print" [218]auberschwert,das er bewacht!"
  566. 57090 print"[160][199]elingt dir dies,bist du wahrlich"
  567. 57091 print" fuer wuerdig befunden,ein [218]auberer"
  568. 57092 print" zu sein.";:poke646,f2:printchr$(34)
  569. 57093 print"[196]er heilige [205]ann,mein [204]ehrmeister,"
  570. 57094 print"scheint sich in [204]uft aufzuloesen!"
  571. 57095 print"[202]etzt bin ich auf mich gestellt!"
  572. 57100 print"<[205]ore>[145][145]"
  573. 57110 geta$:ifa$=""then57110
  574. 57120 return
  575. 60000 poke59639,16:poke53280,6:poke53281,6
  576. 60010 sys820
  577. 60020 print"            [150]  [208]ink [193]rts:"
  578. 60030 print"        [144]\  [212] [200] [197]  [211] [215] [207] [210] [196]  \"
  579. 60031 print"     @ 1986 by [193].[211]ommer and [211].[193]domat"
  580. 60035 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  581. 60040 m$="        [212]he [211]word by [150][208]ink [193]rts[144]":gosub61000
  582. 60050 m$="       [208]rograming : [193]rne [211]ommer":gosub61000
  583. 60060 m$="      [201]dea : [193].[211]ommer and [211].[193]domat":gosub61000
  584. 60065 m$="  [211]tory and [205]ap : [193].[211]ommer + [211].[193]domat":gosub61000
  585. 60070 m$="     [211]pecial [197]ffects : [211]ven [193]domat":gosub61000
  586. 60080 m$="     [199]rafics : [193].[211]ommer + [211].[193]domat":gosub61000
  587. 60090 m$="     [205]otivation : [194]irthe [206]ietmann":gosub61000
  588. 60100 m$="     [199]reetings to all our friends!":gosub61000
  589. 60110 m$="[193]nd coming soon : [210]itter + [211]word [208]art 2[157]":gosub61000
  590. 60120 m$=" [193]ehnlichkeiten mit wirklichen [194]egeben-  heiten und [206]amen sind rein"
  591. 60130 m$=m$+" zufaellig!":gosub61000
  592. 60900 goto60040
  593. 61000 poke214,24:poke211,0:sys58732
  594. 61010 printm$:print:print:gosub62000
  595. 61020 print:gosub62000:print:gosub62000:print:gosub62000:print:goto62000
  596. 61030 return
  597. 62000 fort=1to600:next:return
  598.